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cccccccc LL UU UU SSSSSSSS cccccccc 000000 fala MM MM MM 
cccccccce Lk UU UU SSSSSSSS ccccccce 000000 MM MM MM MM 
cc LL UU UU SS cc 00 MMMM MMMM MMMM =6MMMM 
cc LL UU UU SS cc 00 00 MMMM M 
cc LL UU UU $S cc 00 00 MM MM MM MM MM MM 
cc LL UU uu SS cc 00 00 MM MM MM MM MM 
cc LL UU UU SSSSSS cc 00 00 MM MM MM MM 
CC LL UU UU SSSSSS cc 00 00 MM MM MM MM 
cc LL UU UU ss CC 00 00 MM MM MM MM 
cc LL UU UU sS CC 00 00 MM MM MM MM 
cc LL UU UU s$S CC 00 00 MM MM MM MM 
cc LL UU UU ss CC 00 00 MM MM MM MM 
CCCCCCCC LLLELLLLLL 9 UUUUUUUUUU §«SSSSSSSS cccccccc 000000 MM MM MM MM 
CCCCCCCC LLLLLLLLLL 9 UUUUUUUUUU §=SSSSSSSS cccccccc 000000 MM MM MM MM 
LL IIIT] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


<oO 


| N 
OPCSCLUSCOMM 1 1 


+0:0¢ VAX-11 Ohi gere V4.0-742 Page 1) 
: COPCOM.SRCJCLUSCOMM.B32;1 (1). 


; 1 0001 MODULE OPCSCLUSCOMM ( | 
: ¢ 4it4 LANGUAGE ( b1583¢) 
: 000 IDENT = ‘Vv04-000' 

oi ecg de 
: S B28 8 [RRR RRRRAR RARER EERE AEE E EAE E TEER ERT TREE RARER R Ree eR EERE Kee 
2 'e | 
: 8 0008 8 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 

: 9 0009 iw DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

: 19 Bars 8 :* ALL RIGHTS RESERVED. * 

: } * 

H i Bot¢ 8 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

. oe 001 '® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

>; 614 0014 Q !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 0015 0 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 0016 Q !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: i SEA 8 ‘bd TRANSFERRED. ® 

° .* * | 
:. 0019 QO !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; & 0020 0 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

: $3 OoS3 . ed CORPORATION. * 

5 '® * 

; 0025 0 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; a 0024 0 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; «6? 0025 0 !* * 

; 0026 0 !* * 
: eo? O06 Q See e eee ee eee ERE ERATE ATTA ATTA EERE Tee 
5s 0028 0 
ae + 0029 0 !++ 
; @ 0030 QO ! FACILITY: | 
; 0031 0! 

rt 0032 0! OPCOM 

; * 0033 0! 

; 0034 0 ! ABSTRACT: 

; 3 0035 0! ‘ : : ‘ aps 
; % te) 4 This module contains communications routines used by cluster functions within OPCOM. 
: 38 0038 0 | Environment: | 
Po, oe 0039 0! ; 

: 60 0040 0! VAX/VMS operating system. 
: «641 0041 0! | 
; 642 9h 4 0 ! Author: 

; 63 0043 0! 

: «644 0044 0! Cw Hobbs 

; «645 0045 0! 

;s & 0046 0 ! Creation date: 

; «647 0047 0! 

; 6448 0048 0! 14 July 1983 

; | 649 0049 0! 
; 0050 3 ! Revision history: 

3; 2 0051 : 

: 2¢ 4 0! V03-004 CWwH3004 CW Hobbs 18-May-1984 

; > 0053 Q! Reduce csp messages to two total, one per node to avoid 

5 2 Opee 0 a temporary problem with port overloads. 

; » 2026 6 : V03-003 CWH3169 CW Hobbs 5-May-1984 

» 5? 0057 0! Second pass for cluster-wide OPCOM: 


Pll ae | 


Be ee Be Se Se Oe Be Be Se Se Be Oe FH Se Se Se Se ae SH Se SH Se Be Se Se Se Se ee SH Se Se SH SE Se Se Se Se Se ee SHS Se Se Be Se Se Se ee Se Seas Bee Se Seeseas 


iBesap “19 


vos-000" 16-Sep-1986 12:80:96 LOPcON.SRCSELUSCOMA.8535 1 inet? | 
| 
| 
| 


<OoO 


- Perform a fairly Liberal rewrite of this re using 
kernel-ast driven, parallel calls to CSP so that 
Return ses can be much better. 

- Return SS$_NOSUCHNODE status if the target node does | 
not exist at the present time. 


V03-002 CwH3002 CW Hobbs 16-Sep-1983 
Clean up kernel handler and error messages 
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! Start of CLUSCOMM 


Allocate a cluster output descriptor 

Handle an error described by a cod 

User mode ast routine for a cod error 

Declare kernel AST to start things moving 
Handle ast from CSP 

Jacket routine to send message to remote node(s) 
Send message to single remote node 

Count number of times target node in queue 


Global so that SDA can find them easily 

Count of CODs created 

Current count of i/os aot 

Maximum number of EXESCSP_CALLs pending 

Maximum number of EXESCSP_ ALS pending to single node 
requests with error 

requests flushed (also count as errors) 
requests made 

requests queued 

CODs pending for 1/0 


cods available for use 


Count of 
Count of 
Count of 
Count of 
Queue of 


Queue of 


ueue of cods waiting for actual EXESCSP_CALL to be queued 


‘Pointer to List of virtual memory to deallocate 


: VECTOR C, 


; A macro to put virtual memory back on the queue of garbage to be deallocated 


LONG], 


: VECTOR C, LONG); 


! Store Length as second longword in block 
queue) ; 


a 

_OBCSCLUSCOMM 16-Sep 
14-Sep 

3 70 006? 1 BEGIN 

: 71 0070 1 

: 7 por) 1 LIBRARY i iattiecon | LIB. L32'; 

3 7 072 1 LIBRARY ‘LIB$:OPCOMLIB' i, 

; ee 007 REQUIRE ‘SHREDS s CSPDEF 

: 76 0268 1 FORWARD ROUTINE 

ee | 9 69 1 CLUSCOMM_COD_ALLOCATE, 

3 78 70 #1 LUSCOMM_COD-ERROR : NOVAL 

: 79 0271 1 CLUSCOMM™COD™ ERROR Ast : SNOVALUE, 

; 80 0 2 1 CLUSCOMM_DECCARE_KERN T, 

; «81 0273 1 CLUSCOMM~OUTPUT ERERNELS RST : NOVALUE, 

; «8B 0274 1 CLUSCOMM— =SEND. 

> ¢ 0275 1 CLUSCOMM-SEND_ONE, 

: ee 8 26 CLUSCOMM—TARGET_IN_QUEUE; 

; 686 O78 1 EXTERNAL ROUTINE 

: «87 0279 1 CLUSUTIL_FIND_NOD_BY_CSID, 

: 88 0280 1 CLUSUTIL_NODE_MESSAGE, 

oc) oe 0281 1 UMP_LOG-FILE; 

; 690 ocee 1 SHARE _FAO_BUFFER, 

a 0283 1 WRITE-LOG-FILE; 

; 0284 1 

; 38 0285 1 GLOBAL 

:; % 0286 1 COD_ALLOCATED 

> 95 0287 1 COD"BUSY_COUNT, 

; 96 0288 1 COD-BUSY_MAX INITIAL (2), 

: 0289 1 COD" BUSY NODE INITIAL (1), 

Z 98 0290 1 COD-ERRORS, 

: 99 0291 1 COD" FLUSHED 

> 100 029¢ 1 COD “REQUESTS, 

: 101 0293 1 COD"QUEUED, 

: 102 0294 1 COD“BUSY QUEUE : VECTOR (2, LONG) 

> 103 0295 1 NITIAL (REP 2 OF (COD_BUSY QUEUE) } 

: 104 0296 1 COD_FREE_QUEUE : VECTOR (2,~LON 

; 105 0297 1 INTTIAL (REP 2 OF (COO_FREE auEUED}, 

: 106 0298 1 cop walt QUEUE VECTOR (2, LON 

> 107 0¢99 1 INTTI (REP 2 OF (COb walt QUEUE) ) 

; 108 0300 1 cop _ GARBAGE AGUEUE : VECTOR (2, 

>; 109 0301 1 INITIAL (REP 2 OF (COD « GARBAGE _QUEUE)); 

: 110 ta4 1! 

: 111 0303 1 

: BF 0304 1: 

: 11 0309 1 MACRO 

: 114 m 0306 1 COLLECT_GARBAGE (INP_DESC) = 

> 115 m 0307 1 BEGIN 

: 116 m 0308 1 BIND 

eS ™ 0309 1 desc = (INP_DESC) : 

> «(118 m 0310 1 garbage = .desc ii 

> «119 m 0311 1 arbage [2] = ‘desc : 

: 120 “ 0312 1 Pqueue_ insert_tail iethens! cod_garbage_ 

: 121 031 1 
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GLOBAL ROUTINE cluscomm_cod_allocate = 


lee 
' Functional descripton: 


This routine allocates a COD for a cluster write 


Input: 
None. 


Output: 
Non 


Routine Value: 
Address of block allocated 


BEGIN ! Start of cluscomm_cod_allocate 
LOCAL 

cod : $Sref_bblock ! cod data structure 

garb : REF VECTOR (, LONG), 

ptr, 

status; 


iqf any eeree e nodes are in the hopper, send them away. Garbage is reclaimed this 
! way so that the kernel ast routines do not do free_vm calls on memory allocated 
from user mode. 

$ ueue_remove head (cod_garbage_queve, garb); 

write -garb NEQ 0 , . ’ 


BEGIN 
can (status = opc$free_vm (garb [2], garb)) 


$signal_stop (.status); 
papnus Senate pees (cod_garbage_queue, garb); 


i Get a cod, a Cluster Output Descriptor, if none available on the queue then 
allocate and initialize one. 


Squeue remove_head (cod_free_queue, cod); 
renee EQ. 0 


BEGIN : 
oy (status = opc$get_vm (Zref (cod_k_size), ptr)) 


$signal_stop (.STATUS); 
cod_allocated = .cod_allocated + 1; 


co > ptr; 

CHSFILL (0, cod_k_size, .cod); 
cod [cod_w.sizej = cod .k size; 
god cod_h_type] = %x'77*; 


Page 
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v04-000 at 9 95:88:98 OPCOM.S Rc tLUSCOMM. B32;1 . (3) 
; 180 0371 ' Init the block 
; «(181 0 Me ! 
: 186 7 (cod [cod_q_quetime]) = 0; 
s 74 (cod Ccod_q_quetime]+4) = 0; 
> «184 75 cod (cod_a_¢tsd] =_0; 
s 185 76 cod cod~ \=msglen] = 0; 
> «6186 0377 
: 187 0378 RETURN .cod; 
; «4188 0379 1 END; ! End of cluscomm_cod_allocate 


IDENT AvOecd0OK 
.PSECT S$GLOBAL$,NOEXE,2 
00000 COD_ALLOCATED: : 
00004 oO PAN Sat #8 
00000002 00008 COD_BUSY_MAX:: 
00000001 0000c cop me 
00010 cop -ERRORS: : 
00014 CcoD_ FLUSHED: 
00018 COD “REQUESTS: H 
0001C cop “aueuipe 
00000000" 00020 cod_BuSsy “AUEUE 


a ae ae a Cre a 


RESS COD BUSY _QUEUE : 

00000000' 00024 -ADDRESS COD ~BUSY_ QUEUE : 
00000000" 00028 COD_FREE QUEUE: 

ADDR ESS COD_FREE_QUEUE ; 

00000000' sat a8 ADDRESS COD_ —FREE_QUEUE : 
00000000" 00030 COD_WAIT -QUEU E: 

DRESS COD_WAIT_QUEUE : 
00000000° 00034 “ADDR ESS COD “WAIT_QUEUE : 
00000000" 00038 CoD -GARBAGE QUEUE: 

RESS COD ~GARBAGE _QUEUE : 
00000000' 0003c “ADDR ESS COD-GARBAGE— QUEUE : 


COD_GARBAGE _QUEUE 
COD ~ GARBAGE “QUEUE 


OD"FREE_ QUEUE 
.EXTRN CLUSUTIC sim ONOD BY _CSID 
TEXTRN CLUSUTIL <NODE “MESSA 

"EXTRN DUMP_LOG FILE, SHARE FAO BUFFER 
EXTRN WRITES LOG_ FILe OPCs CSFRE 

“EXTRN LIBSSTOP, ~OPCSGET_ 


-PSECT SCODES,NOWRT,2 | 
007¢ 00000 -ENTRY CLUSCOMM_COD_ALLOCATE, Save R2,R3,R4,R5,R6 ; 0314, 


Sha, Rees 1 aw eaeaa esa 


F 3 
OPCSCLUSCOMM 16-Sep-1 AX-11 Bliss-32 V4.0-742 Page 6 
v04- 14- at 382 93: $f: 73 OPCOM.SR aed, USCOMM.B32;1 9 03) 
SE 0c ¢2 0000 SUBL2 #12. SP ; 
04 AE 0000" oF Of 0008 1$: REMQUE @ QH_, _T_ ' 0344 
03 1¢ 00 08 BVC 2$ : 
04 AE 04 00000 CLAL T : 
04 AE D3 901 2$ TSTL GARE + 0345 
1§ 1 01 BEQL : 
04 AE 9F 0001 PUSHAB GARB : 0348 
7E 08 AE Se 1 00018 ADDL3 , GARB, -(SP) : 
00006 CF 08 FB 0001D CALLS » OOceFREES _VM : 
51 09 00 : MOVL R * STATUS : 
dD 51 £8 000 BLBS STATUS, % : 
22 11 900 8 B $ + 0350 
56 0000" DF OF O0002A 3$ REMQUE @ QH_, _T_ : 0357 
02 1C 0002F VC z : 
56 D4 00031 CLAL : 
56 DS 00033 4$ TSTL OB : 0358. 
36 12 00035 NEQ ; 
08 AE 9F 00037 PUSHAB PTR + 0361 
04 AE 30 oO Hatt MOVL #48, 4(SP) : 
04 AE 9F 0003 PUSHAB 4(SP) ; 
00006 CF 02 FB 00041 CALLS o OPCSGET_ VM : 
51 50 DO 00046 MOVL RO. STATUS ; | 
OA 51 €8 00049 BLBS STATUS, re ; 
51 DD 0004C 5$ PUSHL STATUS > 0363) 
000000006 00 01 FB 0004E CALLS #1, LIBS$STOP F | 
04 00055 RET ; 
0000" CF D6 00056 6$: INCL COD_ALLOCATED ; 0364 
56 08 AE DO 0005A MOVL PTR? CO : 0365 
30 00 6E 00 2¢ 90056 MOVCS #0, (SP), #0, #48, (COD) > 0366 
08 Ab 30 BO 00064 MOVW #48, 8(COD) : 0367 
OA Ab 77 BF 90 00068 MOVB #119, 10(COD) : 0368 
28 Ab 7C 0006D 7$: CLRO 40 (COD) : 0373 
14 A6 D4 00070 CLRL 20 (COD) : 0375 
A6 D4 00073 CLRL 2(COD) : 0376 
50 56 DO 00076 MOVL COD, RO : 0378 
04 00079 RET : 0379 


; Routine Size: 122 bytes, Routine Base: S$CODE$ + 0000 


0000 00000 


000000006 00 03 FB 00008 
04 0000F 


; Routine Size: 16 bytes, Routine Base: S$CODE$S + 007A 
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This routine declares an ast to start the 1/0, both it and the AST operate in kernel mode 


! Start of cluscomm_declare_kernel_ast 


| OPCSCLUSCOMM 
yo%-000 14-Sep-1984 12: 
139 8 9 } GLOBAL ROUTINE cluscomm_declare_kernel_ast = 
136 ¢ 1 lee 
19 1 | Functional descripton: 
194 wee 
195 5 ii 
196 § 1) 
197 4 1: Input: 
198 8 1 None. 
199 0389 1! 
00 0390 1: Output: 
01 8 91 1: None. 
o¢ 5 1/ 
20 0393 1 ! Routine Value: 
204 0394 1: Value from DCLAST 
$02 0395 1 i- 
06 0396 1 
207 0397 § BEGIN 
208 0398 
344 +244 § RETURN SDCLAST (ASTADR=cluscomm_output_kernel_ast, ASTPRM=0); ! Q means start 
211 0401 1 END; 


! End of cluscomm_declare_kernel_ast 


-EXTRN SYSS$DCLAST 


gENTRY CLUSCOMM. DECLARE_KERNEL_AST, Save nothing ; 
PUSHAB chUSCome ouTpuT _KERNEL_AST : 
CALLS SYSSBCLAS : 


7 
) 
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vo4=000 e280 87 382 93:80:98 COPCOM. SRC CLUSCOMM.B32;1 ? (5) 

: \3 188 } GLOBAL ROUTINE cluscomm_output_kernel_ast (csd : Sref_bblock) : NOVALUE = 

: 215 204 | tes 

; \$ the : Functional descripton: 

; 18 a107 : This routine is the 1/0 completion for a EXESCSP_CALL write, executes in kernel mode 

; 226 0409 1 | Input: 

; 5 1 Beiy : csd address of CSD for the transfer 

3 g Q4ig 1! Output: 

3 § 4 04135 1! None. 

; 5 0414 1! 

3 sso Rel? : Rout ine Value: 

: : one. 

: 228 0417 1 !-- 

; $6? 0418 1 

: Say et $ BEGIN ! Start of cluscomm_output_kernel_ast 

; 23¢ 0421 2 LOCAL 

: Siz Oe5§ $ ced : $ref_bblock; 

: 235 Ques ¢ | 
; $39 Res? : If the parameter is non-zero, release that block 
: 238 042? 2 iF .csd NEQ 0 

; 239 0428 THEN 

; 240 9494 BEGIN 

: $e Bees ; cod = .(csd Ccsd$ab_data]); ! COD address is first longword of data field 

; 208 Ree ; } Free the CSD and put the message buffer on the List of virtual memory blocks to be deallocated 
: 245 0434 3  — EXESDEALLOC_CSD (.csd); | 
: $78 eth 3 collect_garbage (cod Ccod_q_msgbuf]); | 
; 348 0437 ; Place the cod in the free queue 
: 250 0439 $queue_remove (.cod); ! Remove it from the queue (should be in the busy queue) 
3 ge 0440 $queue_insert_tail (.cod, cod_free_queue); 
: $26 vee cod. busy_count = .cod_busy_count -"1; 
: 254 044 : | 
3 $22 Bete If we can queue another EXESCSP_CALL, then do so 

: 257 446 2 cod = .cod_wait_queue (0); 

: 38 beta § WHILE .cod NEQ cod_wait_queue ' Loop until we see the end 

: 266 re) - -cod_busy_count LSS .cod_busy_max ! or until we have filled our quota 

; 6¢ 0451 BEGIN 

: 26 pres LOCAL : 

; next, 

; 265 454 nod : $ref_bblock; ; : 

; 266 455 next = .cod Ccdd_t_flink); ! Save the pointer to the next, since we might pull it out 

: 44 pee nod = .cod Ccod_a_nod); ! Pointer to the nod block for the system 

: 269 0458 i Make sure that the target is stili there, this means that the csid stored in the node must be 


<oO 


3 
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; rp 123 valid and that the node must not be in the departed state. 

3 f red IF gros Cnod_l_node_csid] NEQ .cod Ccod_l_csid] ! Node has rebooted with a new csid 

3 es aces ai Cnod_b_state]) EQL nod_k_state_departed ! Node is gone, but not forgotten 

3 316 0465 4 BEGIN 

; e277 Bees 4 $queve_remove (.cod); ' Remove it from the waiting queue 

; 78 0467 & cod (cod _l_errstat] = ss$ nodeleave; !' Give it a reasonable error status 

; e279 0468 4 cod_flushed = .cod_ flushed + 1; ' Count flushes individually 

3 e0 e834 : ¢lusconm, cod_error (.cod); ! Signal and clean it up 

: 28 0471 its TF cluscomm_target_in_queue (.cod, cod_busy_queue) LSS .cod_busy_node 

: $88 ae . sect es 

; 284 0473 4 BEGIN 
; 285 0474 & LOCAL 

; 286 0475 4 status; 

; 287 0476 4 ! 

; 288 0477 4 ! Remove the cod from the waiting queue 

; «289 0478 4 ' 
; 290 0479 4 $queue_remove (.cod); 
; 291 0480 4 ! 
> 292 0481 4 ' Allocate a CSD block for the transfer. Common fields in the CSD are initialized by 
; $37 et ? : the allocate routine. | 
; 295 0484 5 IF NOT (cod Ccod_l_errstat] = EXESALLOC_CSD (csd$k_length + 4 + .cod ECcod_l_msglen); csd)) 
; 296 0485 4 THEN 
3 evr 0486 5 BEGIN 

; 298 0487 5 cluscomm_cod_error (.cod); ! Signal error and clean up 

3 0488 5 RETURN; ! More serious error, ext the routine 

3 0489 4 END: 

: 301 0490 4 cod [cod_a_csd] =_.csd; ! Point the cod at the csd 

; 308 ved ? (esd fesdsab. data}) = ‘cod; ' Store cod address as first longword in csd_ 
; 304 0493 4 Set the other message dependent fields in the CSD 

; 305 0494 4 ! 

3 0495 4 csd C(csd$w_code] = csd$k_opco ' Set the OPCOM client code 

s 37 0496 4 csd Ccsd$l-sendoff] = (47+ (esd Ccsd$ab_data])) - .csd; ! Store offset to the actual message 
; 308 0497 4 csd Ccsd$l-sendlen] = .cod Ccod_l meglenl: | ' Store size of mesgage 
: 309 0498 4 CHSMOVE (.tod Ccod_l -msgi9n » coe C datel))5; ! Move the aessoge o the CSD 

: 310 0499 4 (4 + (csd oo8se- _data]))); ' right after the oe godess 

... ay 0500 4 csd Ccsd$l_recvoff] = csd Ccsd$l_recvlen]™= 0; ! We do not want a ply 

3 Ste 0501 4 csd Ccsd$a_astadr] = chupcogn output. kernel } = ' Store address of coe etion AST routine 

ee ah b20¢ 4 csd Ccesd$l— epie] = .cod teod_ ' store the target node 

: 4 9908 > IF NOT T (cod Ccod_l_errstat eXiscse. CALL (.cod Ccod_a_csdJ)) 

; 316 0505 4 cluscomm_cod_error (.cod) ! Signal error and clean up 

s BT 0506 4 

; 318 0507 § BEGIN 

3; 319 0508 5 cod_busy_count = .cod_busy_count + 1; ' Bump the busy count 

: 320 0509 5 cod queued = .cod_queued +71; i Bump the count of those queued 

: 1 8219 5 eulue. insert tait< (.cod, cod busy. queue) ; i Put it at the end of the busy queue 

: ¢ 31) ? peete ss (timadr=cod tcod _G_quetime]); ‘' Store the current time in the cod 

: $e 0318 END; 

; 5 514 ! 

3 «360 0515 ! Advance to the next one, using the saved next pointer 


<O 
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; 7 218 ! 

3 8 1 cod = .next; 

i 3% 355 

3 1 82 , } Check the validity of the queues, crash the system if anything is wrong 

: : L 05 § ZIF ZVARIANT EQL 7 

; 4 u 05 XTHEN 

; 5 U 0524 BEGIN 

3 6 U 0525 EXTERNAL ROUTINE monitor_queue : NOVALUE; 

: 7 u 05 § monitor_queue (cod_busy_Queue, 0); 

; $8 U 8 monitor_queue (cod_free_queue, 1); 
; \) U 05268 monitor _ “queue (cod_wait_queue, 2); 

; 340 U 0529 E 

: 35341 0530 <F1° 

3 my 0531 

; 34 b2e6 RETURN; 

> 344 05335 1 END; ! End of cluscomm_output_kernel_ast 


_QH_= CoD ~GARBAGE QUEUE 
“QH_= COD_F REE QUEUE 
“QH_= COD-BUSY~ QUEUE 
-EXTRN EXESDEACLOC_CSD 
~EXTRN EXESALLOC Esp: EXESCSP. CALL 
.EXTRN SYSS$GETTIA 
03FC 00000 .ENTRY cLuscOnm. ouTeuT.. KERNEL_AST, Save R2,R3,R4,- ; 0402) 
59 0000 CF 9E 00002 MOVAB COD_BUSY’COUNT, R9 3 
50 04 aC 00 00007 MOVL CSD; RO ~ 3 0427 
23 13 00008 BEQL 1$ : 
57 52 AO 00 0000D MOVL 82(RO), COD 3 0430 | 
00000000G 00 16 00011 JSB RBG REM L Ot £58 3 0434 
51 20 A? YE 00017 MOVAB 2(COD), R1 3; 0435 
50 04 Al 00 00018 MOVL 4(R1), RO : 
08 a0 61 00 0001F MOVL (R1), 8(RO) 3 
38 «BS 60 OE 00023 INSQUE (RO), @_QH_+4 : 
50 67 OF 00027 REMQUE (CODS, ~T > 0439 
28 «BY 67 Of Q002A INSQUE (COD), 3_GH_+4 3 0440 
69 0D 900 3 DECL COD _BUSY_ COONT > 0441 | 
57 2C AY DO 00030 1$: MOVL COD-WAIT SUEUE, cop : 0446 
50 ec AG 4 sit 2$: MOVAB COD -WAIT. “QUEUE, RO : 0447 
50 57 D1 00038 CMPL G00, R i 
01 12 000 BNEQ $ 3 
04 0003D RET ; 
04 ag 69 D1 OOO3E 3$ CMPL COD_BUSY_COUNT, COD_BUSY_MAX : 0449 | 
01 19 00042 BLSS 4$ ; 
04 00044 RET $ | 
58 67 00 00045 4$ MOVL (COD), NEXT ; 0455. 
50 18 AZ DO 00048 MOVL 24(COD), NOD ; 0456. 
10 A? 2C =aAd D1 0004¢ CMPL 44(NOD), 16(COD) 7 0461 | 
06 12 ite BNEQ 3 : 
04 22 Ad 91 00 ; CMPB 4(NOD), #4 3 0463 
OF 12 0005 BNEQ 6$ : 
50 67 OF 00059 5$ REMQUE (COD), _T_ : 0466 


Kk 3 | 
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9042000 yersee=tSRe 93:88:98 = FOCAL Bhigerse Me Ones, oF 5) 
| 
1c «OA? 223¢ «BF SCC 005 MOVZWL #8764, 28(COD) : 0467 
10 a9 D6 006 INCL OD_FLUSHED + 0468 | 
7c 1 006 BRB : 0469, 
1¢ AD OF 067 6$ PUSHAB COD_BUSY_QUEUE : 0471 
57 DD O006A PUSHL ¢ Dp” : | 
0090v CF FB O06¢ CALLS , CLUSCOMM_TARGET_IN_QUEUE : 
08 Ag p 0071 CHPL ; COD_BUSY-NODE : 
50 6 OF $059 REMQUE + 0479. 
51 20 A7 00000056 8F C1 OO007A ADDL 4, S2TE0), : 0484 
000000006 00 if 0083 JSB #88, $2000 tsb ; 
046 =#A $ D 38 9 MOVL Re : 
1c (OA DO 0008D MOVL . ¢cop? : 
08 20 £8 00091 BLBS RO. : | 
7 DD 00094 PUSHL (COD + 0487 
0000v CF 01 FB 00096 CALLS #1, CLUSCOMM_COD_ERROR : | 
04 00098 RET + 0486 | 
56 04 ac DO 0009C 7$ MOVL CSD, R6 + 0490 
14 A7 28 DO OOOAD MOVL R6, 20(COD) : 
52 AG 57 DO 000A4 MOVL COD, 82(R6) + 0491 
OC Ab 05 80 000A8 MOVW #5, 12(R6) + 0495 
50 56 56 C3 OOOAC SUBL3 R6. R6, RO + 0496 
16 Ab 56 AO SE 00080 MOVAB 86 (RO) 22(R6) : 
12 Ab 20 A? DO 00085 MOVL 2(CODS, 18(R6) + 0497 
50 56 00 OOOBA MOVL RG. RO + 0499 
56 AD 24 87 20 AZ 38 000BD MOVC3 32(COD), @36(COD), 86(RO) ; 
1A AB 7C 000C4 CLRQ. 26(R6) : 0500 
22 A6 FF35 CF 9E 000C7 MOVAB CLUSCOMM_ sd _KERNEL_AST, 34(R6) ; 0501 
OE A6 10 A? DO 000CD MOVL  16(COD),~14(R : 0502 
52 14 AZ 00 000D2 MOVL  20(COD); R2 : 0503 
000000006 00 16 00006 JSB EXESCSP. CALL : 
1c A? 50 00 000DC MOVL RO, 28(TOD) : 
09 50 £8 O00EO BLBS RO. 10$ : 
57 DD OO0ES 83: PUSHL COD + 0505 
0000v CF 01 FB 000E5 CALLS #1, CLUSCOMM_COD_ERROR : 
13 11 OOOEA 9$: BRB 118 ; 
69 D6 OOOEC 10S: INCL  COD_BUSY_COUNT : 0508 
18 Ad D6 OOOEE INCL COD“ QUEUED : 0509 
20 B89 67 OE OO0F1 INSQUE (COB), @_QH_+4 + 0510 
28 «=A? «OOF O00FS PUSHAB 40(COD) ~ : 0511 
000000006 00 01 FB 000F8 CALLS #1, SY YSSGETTIM ; 
57 58 DO OOOFF 11$:  MOVL NEXT, COD : 0517 
FF2F 31 00102 BRW 2$ t 0447 | 
04 00105 RET > 0533. 
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GLOBAL ROUTINE cluscomm_cod_error (cod : $ref_bblock) : NOVALUE = 


'e¢ 
Functional descripton: 


ecutes in kernel mode. 


This routine handles an error in CSP communications, ex 
The error is given to a user-mode AST to actually handle 


i 

i 

i 

! Input: 
cod address of COD for the transfer 
i Output: 

} None 

i Routine Value: 

: n 

le 


BEGIN ! Start of cluscomm_cod_error 


LOCAL 
csd : $ref_bblock; 


cod_errors = .cod_errors + 1; 

Deallocate the CSD if present 

IF (csd = .cod Ccod_a_csd]) NEQ 0 

EXESDEALLOC_CSD (.csd); 

Return any virtual memory to the free List 

it gcee Ccod_l_msglen] NEQ 0 

collect_garbage (cod Ccod_q_msgbuf]); 

Declare an AST in user mode, so that we can use RMS/etc 

SDCLAST (astadr=cluscomm_cod_error_ast, astprm=.cod, acmode=psl$c_user); 


RETURN; 
ND; ! End of cluscomm_cod_error 
_QH_= COD_GARBAGE _QUEUE 
001C 00000 «ENTRY CLUSCOMM COD_ERROR, Save R2,R3,R4 ; 0534 
0000° CF be 0002 INCL COD_ERRORS ; 0557 
54 04 AC 00 00006 MOVL c0D R4 ; 0561 | 
50 14 Ab BO OO00A MOV. 20(R4), CSD ; | 
8 1 it BEQL 1$ : 
soonongTs 1 Bop} JSB GUESDEALLOC_CSD ; 0563 | 
2 AS 05 00016 1% TSTL 2(R4) 3 0567 | 
11. 13 00019 BEQL es : 
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61 bytes, Routine Base: S$CODE$ + 0190 


; Routine Size: 


N 3 
OPCSCLUSCOMM 16-Sep-1984 01:20: AX=-11 Bliss-32 V4.0-742 Page 1 
V04~ 14-Sep-19 4 9:88:98 OPCOM. SRCICLUSCOMM.B325 1 “ (7) | 


; 30 a ! GLOBAL ROUTINE cluscomm_cod_error_ast (cod : $ref_bblock) : NOVALUE = | ; 
: 39 tS} tes ; 
; 37 2 9 : Functional descripton: ; 
: 3? 03 g : ! This routine signals an error in CSP communications, executes in user mode. : 
: 397 0584 1 | Input: | 3 
3 oS pepe ! cod address of COD for the transfer : 
; 400 0587 1 ‘ Output: | ; 
; 401 bee } } None. | : 
; 40 589 1! 3 
: 40 0590 1 ! Routine Value: : 
; 404 0591 1! one. : 
es be ast 
; 407 0594 § BEGIN ! Start of cluscomm_cod_error ; 
: 209 0896 LOCAL | 
> 410 0597 § leaving | : 
: 411 0598 é dsc : VECTOR C2, LONG), ; 
; tig +444 § nod : $ref_bblock; : 
> 414 0601 nod = .cod ([cod_a_nod); ; 
> 6415 960 leaving = (.cod (cod_l_errstat] EQL ss$_nodeleave); 3 
: si8 se » - leaving) ! If any other error : 
: 418 0605 j (NOT .nod Cnod_v_node_leaving]) ! or if the first node_leaving error : 
3; 419 0606 ¢ THE : 
aS oS we Re 
; +36 +44 ; ; Put a message in the logfile | : 
: 424 0611 3 ¢lusut il_node_message (.nod, opc$_cluscomm, false); | : 
: $s8 0618 ; If any error besides leaving, then put a message in the logfile about the exact reason | 3 
: 156 0615 IF .leaving ! Mark the first message so that we can skip the others ; 
: $63 0616 ; THEN | 3 
; ret +34 ; : nod [nod_v_node_leaving] = true ‘ 
233 0620 d ritet file ( ; 
3 rite_lo © 3 
3 434 L 0691 4 ‘ share~ tao. buffer (ZASCID ZSTRING ("Unable to communicate with !AS (!XL), system status code !XL! 3 
3 635 L 0622 4 * Current statistics for cluster message activit zi /* 3 
: 436 L 0623 4 Msg desc allocated! 8UL Errors 'BUL!/", : 
: 437 L 0624 4 : Msg requests 'BUL Msgs flushed !8UL!/', : 
3; 4638 0625 4 . Msgs queued 'BUL Current busy !8UL"), 3 
3; 439 0626 4 nod (nod_q_name_desc], .cod Ccod_l_csid], .cod Ccod_l_errstat], 3 
3 440 poe? 4 -cod_allocated, .cod_errors-.cod_ flushed, 3 
3 (441 0628 4 -cod_requests, .cod_flushed, 3 
; a be8s ? , -cod_queued, .cod_busy_count)); : 
: ret 063 ? Write some more arcane, but useful messages if we are debugging : 
: 466 L 0638 6 Z1F XVARIANT NEQ 0 : 


16-Sep-1984 390: 08 AX-11 ee V4.0=742 


14-Sep-1984 12 6 OPCOM.SRCJCLUSCOMM.B32;1 
; U 0634 4 XTHEN 
: U 0635 4 dsc C0] = cod_k_size; dsc C1] = .cod; 
; U 06 $ 4 dump_log_file(dsc, %ASCID "Dump_of COD used in transfer’); 
5 U be : gump.log. file (cod Ccod_q_msgbuf], ZASCID ‘Dump of COD text field"); 
; 6 9 END; 
oees _— 
3 pong $queve_insert_tail (.cod, cod_free_queue); ! ALL done, put it back in the queue 
: 0644 g RETURN; 
; 0645 1 END; ! End of cluscomm_cod_error_ast 
-PSECT S$PLITS,NOWRT,NOEXE,2 
6D 6D 6F 63 20 6F 74 20 65 6C 62 61 6E 55 Q0000 P.AAB: .ASCII \Unable to communicate with !AS (!XL), sy\ 
41 21 20 68 74 69 77 20 65 74 61 63 69 3 0000F 
79 73 20 st 29 4C 58 21 $f § OO01E 
o @43 20 7 f 76 6) 6 73 2 @ 65 6 3 C47 ASCII \stem status code !XL!/ Current statisti\ 
es v2 f2 Wo 63 $0 20 2F 4 4c 58 4 20 65 00037 
69 74 73 69 74 61 74 73 $9 74 00046 
72 65 74 73 75 6C 63 20 72 6F 66 3 3 63 00050 ASCII \cs for cluster message activity: !/\<9> 
69 76 69 74 63 61 20 65 67 61 73 73 65 6D O005F 
09 ef 21 3A 79 Bp Oge 
63 6F 6C 6C 61 20 63 73 65 $ 0 67 73 4D 0007 ASCII \Msg desc allocated! 8UL Errors \ 
72 45 20 20 20 20 20 4C 55 38 21 64 65 74 00082 
20 20 20 20 20 20 20 73 72 6F 00091 
71 65 72 20 67 73 4D 09 2F 21 ag 55 38 21 00098 eASCII \!8UL!/\<9>\Msg requests '8UL \ 
4C 55 38 21 20 20 20 20 20 20 73 74 73 65 QOOAA 
30 20 $9 20 00089 
21 20 64 65 68 73 75 6C 66 20 73 67 73 4D 00080 «ASCII \Msgs flushed !8UL!/\<9>\Msqgs queued \ 
75 65 75 71 20 73 67 73 4D O09 2F 21 4¢€ 55 O00CC 
20 20 20 64 Q00DB 
43 20 20 20 20 20 4C 55 38 21 20 20 63 $9 OOODF eASCII \ '8UL Current busy !8UL\<0><0> 
55 38 21 20 79 73 75 62 20 74 6€ 65 72 72 OQOQOEE 
00 00 Q00FD 
00 OOOFF ASCII <0> 
Q1OEQOFD 00100 P.AAA: .LONG 17694973 
00000000" 00104 ADDRESS P.AAB 
_QH_= COD_FREE_QUEUE 
-PSECT S$CODES,NOWRT,2 
003C 00000 -ENTRY CLUSCOMM COD_ERROR_AST, Save R2,R3,R4,R5 
55 0000' CF 9 B2006 MOVA COD_FLUSRED, R5 
f 08 C Ba SUBL #8, SP 
5 04 aC DO OO00A MOVL 06, _R3 
52 18 Ad 00 S005 MOVL 4(R3), NOD 
50 D4 0001 CLRL 
0000223C —=ss BF 1c) =6—A3 sO DP: CMPL ¢ (R3), #8764 
12 1C BNEQ $ 
D6 igh INCL RO 
54 0 p00 00020 1$: MOVL RO, LEAVING 
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OPCSCLUSCOMM 16-Sep-1984 91:40:08 AX-11 Bliss-32 V4.0-742 Page 17 
v04-0 CLUSCOMM_SEND (CSID, MSG_LEN, MSG_PTR) 14-Sep-1984 12:50: OPCOM.SRCJCLUSCOMM.B32;1 (8) 
; re ¢ pong ! GLOBAL ROUTINE CLUSCOMM_SEND (CSID, MSG_LEN, MSG_PTR) = ZSBTTL "CLUSCOMM_SEND (CSID, MSG_LEN, MSG_PT 
; 46 0648 1 !++ : 4 se 
; 46 0649 1 ! Functional description: 
: 464 0650 1! 4 : ; 
3 ret bees } Jacket routine to send a message to remote node(s), and wait for completion. 
: 467 bess 1! Input: 
> 468 0654 1! 
: 469 0655 1! CSID - Id of target node, -1 for broadcast to all nodes except local 
: 470 0656 1! MSG_LEN = Length of message 
; «471 B62f 1! MSG_PTR = Address of message 
: 47 656 1! wer 
; 47 0659 1°! Implicit Input: 
> 474 0660 1! 
; «475 0661 1! None. 
: 476 0662 1! 
: 4677 0663 1 ! Output: 
> 478 0664 1! 
; 479 C665 1! None. 
: 480 0666 1! : 
>; 481 0667 1 ! Implict output: 
: 482 0668 1! 
>; 483 0669 1! None. 
: 6 0670 1! | 
: 485 0671 1°! Side effects: 
; 4 0672 1! 4 
: 487 06735 1! Messages will be sent to remote nodes. 
>; 488 0674 1! : 
: 489 0675 1 ! Routine value: 
: 490 0676 1! . . 
3; 491 0677 1! Status from comm primitive. 
: 492 0678 1 !-- 
; 493 0679 1 
> 494 0680 2 BEGIN ! Start of CLUSCOMM_SEND 
> 495 0681 2 
; 496 068 2 EXTERNAL 
3 497 0683 2 GLOBAL_STATUS : BITVECTOR (32), 
; 49 0684 2 LCL_CSTD : LONG, 
; 499 0685 2 NOD_HEAD : VECTOR C2, LONG); 
; 500 0686 2 
s 301 0687 2 LOCAL 
; 502 0688 2 FINAL_STAT : LONG, 
s 3035 0689 2 NO : $Sref_bblock, 
; 504 0690 2 STATUS LONG; 


4 
bese -1984 01:20: AX-11 Bliss-32 V4.0-742 Page 1 
SEND (CSID, MSG_LEN, MSG_PTR) 1e-Sep-19 4 93:98:98 OPCOM. SRCICLUSCOMM.B32¢1 . (9 
Assume success for final status 
FINAL_STAT = SS$_NORMAL; 
If not in a cluster we are done, return with success 
if NOT .GLOBAL_STATUS CGBLSTS_K_IN_VAXc luster] 
RETURN .FINAL_STAT; 
If CSID is -1, send it to everyone 
IF .CSID EQL =1 
THEN 
BEGIN 
NOD = .NOD_HEAD [ 


0]; 
WHILE -NOD"NEQ NOD_HEAD [0] 


Send to all nodes but local 

TARGET = .NOD CNOD_L_NODE_CSIDI); 

IF .TARGET NEQ .LCC_CSID 

THEN 
BEGIN 
STATUS = CLUSCOMM_SEND_ONE (. TARGET, .NOD, .MSG_LEN, .MSG_PTR); 
a NOT .STATUS 


HEN 
FINAL_STAT = .STATUS; 
ND; 
Move to the next node 


NOD = .NOD CNOD_L_FLINK); 
END; 
END 


FIND_NOD_BY_CSID (.CSID); 

TF .NOD EGL O 

THEN SS$_NOSUCHNODE 

_ ELSE CLUSCOMM_SEND_ONE (.CSID, .NOD, .MSG_LEN, .MSG_PTR)); 


' End of CLUSCOMM_SEND 


-EXTRN GLOBAL_STATUS, LCL_CSID 


ee ti 
v04-0 


eo 


16-Sep-1984 01:20: AX-11 Bliss-32 V4.0-742 p 19 
CLUSCOMM_SEND (CSID, MSG_LEN, MSG_PTR) 12286871382 93:80:98 OPCOM. SRCICLUSCOMM. 83251 29° (9) 
.EXTRN NOD_HEAD 


; Routine Size: 109 bytes, Routine Base: S$CODE$ + 0241 


ort 000: ENTRY usc SEND, Save R2,R3 3; 0646. 3 
53 01 DO 0000 MOVL #i, FINAC_S + 0694. : 
SF 00006 CF £9 0000 BLBC GLOBAL_STATUS+1, 5$ > 0698 | : 
FFFFFFFE © &F 04 Ac D1 900A cMPL SID, #-1 : 0704. ; 
52 00006 CF 6 a0014 MOVL  NOD_HEAD, NOD t 0707. ; 
51 00006 CF 9E 00019 1$ MOVAB NOD"HEAD, R1 ; 0708 ; 
51 52 D1 OOOIE CMPL NOD; R1 : ; 
46 13 00021 BEQL 5 ; : 
51 2c «Ae «(0 900 3 MOVL 44(NOD), TARGET + 0716. : 
00006 CF 51 D1 00027 CMPL TARGET, LCL_CSID > 0717) : 
11 13 0002C BEQL 2$ : : 
7E 08 AC 7D O00¢E MOVQ MSG_LEN, -(SP) ; 0720 ; 
06 8B 000 PUSHR #*M<R1,R2> ; : 
o00d0v CF 04 FB 00034 CALLS #4, CLUSCOMM_SEND_ONE : : 
03 50 €8 00039 BLBS STATUS, ; 0721) 3 
53 50 DO 0003c MOVL STATUS, FINAL_STAT + 0723 ; 
52 62 DO O003F 2$ MOVL (NOD), NOD : 0728 : 
D5 11 00042 BRB 1$ : 0708 | : 
04 AC DD 00044 3$ PUSHL (CSID : 0736) 
0000G CF 01 FB 60047 CALLS #1, CLUSUTIL_FIND_NOD_BY_CSID : 
$2 50 p00 0004C MOVL RO, NOD : | 
07 12 0004F BNEQ 4 : 0737 
53 028c 8F 3C 00051 MOVZWL #652, FINAL_STAT : 
11 11 00056 BRB : 
7E 08 AC 7D 00058 4$ MOVQ MSG_LEN, (SP) : 0739) 
52 od 0005¢ PUSHL NOD : 
04 AC DD 0005 PUSHL  (CSID : 
0000v CF 04 FB 00061 CALLS #4, CLUSCOMM_SEND_ONE 3 
53 50 DO 00066 MOVL RO, FINAL_STAT : 
50 53 DO 00069 5$ MOVL FINAL_STAT, RO : 0742 
04 0006C RET > 0743, 
| 
| 


4 | 
OPCSCLUSCOMM 1bese -1984 01:20: AX-11 Bliss-32 V4.0-742 Page 20 
v04 CLUSCOMM_SEND_ONE 12-8 08- 1 3be 03:60:98 OPCOM. S°CICLUSCOMM.B32¢1 . 8s 
5 260 Ors ! GLOBAL ROUTINE CLUSCOMM_SEND_ONE (CSID, NOD, MSG_LEN, MSG_PTR) = ZSBTTL *CLUSCOMM_SEND_ONE' 
; 6¢ 746 1 S44 
; o7 toe4 ! } Functional description: 
: o? O79 : Send a message to a remote node, and wait for completion. 
3 er Spat 1! Input: 
; 568 8°26 1! 
; 569 07535 1! CSID - Id of target node 
; or 0754 1! NOD - Address of NOD block for target node 
3 ef) $222 ,: MSG_LEN = Length of message 
; Lf 7 § 1! MSG_PTR = Address of message 
; OF 0757 1! 
s 576 0758 1°! Implicit Input: 
3 37> 0759 1! 
3; 37 0760 1! None. 
3 S77 0761 1! 
; 578 Bros 1 ! Output: 
; 579 0763 1! 
; 580 0764 1! None. 
s Sel 0765 1! 
3 266 0766 1°! Implict output: 
; 38 0767 1! 
; 584 0768 1! None. 
s 385 0769 1! 
>; 586 0770 1! Side effects: 
; 587 0771 1! : 
; 588 14k: 1! Messages will be sent to remote nodes. 
; 589 0773 1! . 
; 590 0774 1 ! Routine value: 
; #591 0775 1! 
; 592 0776 1! Status from comm primitive. 
3 395 0777 1 I< 
3; 594 0778 #1 
s 395 0779 2 BEGIN ! Start of CLUSCOMM_SEND_ONE 
; 596 0780 2 
; 597 0781 EXTERNAL 
; 598 14-04 GLOBAL_STATUS : BITVECTOR (32); 
; 599 078 
; 600 0784 2 LOCAL 
; 601 0785 2 ARGLIST : VECTOR C2, LONG), 
; 602 0786 : Sref_bblock, 
; 603 $444 STATUS : LONG: 
; 604 0788 
; 605 0789 ! : 
; ty] 14 If not in a cluster we are done, return with error. 
; 608 145 IF NOT .GLOBAL_STATUS CGBLSTS_K_IN_VAXcluster] 
3; 609 079 THEN 
; 610 079% RETURN SS$_NOSUCHNODE; 
3; 611 0795 . 
3 ol¢ ors? Allocate and fill in the COD 
3 614 798 COD = CLUSCOMM_COD_ALLOCATE (); ' Get a new COD ¢ 
3; 615 0799 CoD peop csip4 =".CSID; ' Keep a copy of the CSID in the COD 
; 616 0800 COD CLCOD_A_NOD) = .NOD; ! Keep the NOD address too 
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v04-000 CLUSCOMM_SEND_ONE 122808-1 382 9:90:98 OPCOM.SRCJCLUSCOMM.B32;1 : 118) 
; 617 01 COD CCOD_L_MSGLEN] = MAXU (12, .MSG_LEN); ! Store the Length of the message, make sure garbage header — 
: 218 0809 en (STATUS = OPCSGET_VM (tod PCObL ASGLEN, COD COD. A_MSGETRI)) . ° . 
: 620 O804 $signal_stop (.STATUS); 
: ? 1 Bane CHSMOVE (.MSG_LEN, MSG_PTR, -COD CCOD_A_MSGPTR)); 
Z ? § O80? ; Place the cod on the queue of outputs waiting 
: 625 0809 2 SQUEUE_INSERT_TAIL (.COD, COD_WAIT_QUEUE); 
: $26 0810 COD_REGUESTS = .COD_REQUESTS # 1; 
; 408 B5i§ i Change to kernel mode to start the transfer, call the ast routine with a zero 
; $63 Bale : parameter (arglst not relevant) | 
: 631 0815 STATUS = SCMKRNL (ROUTIN = CLUSCOMM_DECLARE_KERNEL_AST, ARGLST = COD); | 
; £39 0817 i Signal errors. If ast quota exceeded, then write a message, since it is almost certain that | 
; os Bale ; kernel ASTs are already active. If not ast quota error, stop the process. 
: 636 0820 if NOT .STATUS | 
; 637 0821 2 THEN | 
; 638 bes6 BEGIN 
; 639 082 IF .STATUS NEQ SS$_EXQUOTA 
; 640 0824 3 THEN 
; 641 0825 4 $signal_stop (.STATUS) 
3 $66 0826 3 ELSE ; ; 
; 64 0827 3 WRITE_LOG_FILE (ZASCID ‘AST quota error in cluster communication’); 
> 644 0828 2 ND; 
> 645 ie) 2 
; 646 0830 2 RETURN .STATUS; 
; 667 0831 1 END; ! End of CLUSCOMM_SEND_ONE 
| 
.PSECT $PLITS,NOWRT,NOEXE ,2 | 
72 OF 72 72 65 20 61 74 6F 75 71 20 54 53 41 00108 P.AAD: .ASCII \AST quota error in cluster communication\ ; | 
6D 6f 63 20 72 65 74 73 75 6C 63 20 6€ 69 20 00117 3 
6— 6F 69 74 61 63 69 6E€ 75 6D bo $8 ; | 
010E0028 00150 P.AAC: .LONG 17694760 : 
00000000° 00134 «ADDRESS P.AAD 3 | 
_QH_= COD_WAIT_QUEUE 
-EXTRN SYSSCMKRNL 
-PSECT SCOPES,NOWRT,2 
OOFC 00000 ENTRY CLUSCOMM_SEND_ONE, Save R2,R3,R4,R5.R6,R7  ; 0744) 
SE 0c ce 90002 SUBL2 , SP ; | 
06 0000G CF 000 LBS GLOBAL STATUS+1, 1$ ; 0792 | 
50 028C F f tg moveuL #652, RO 3: 0794 | 
FD3D =F 0 FB 00010 1$: CALLS #0, CLUSCOMM_COD_ALLOCATE : 0798 | 
of 0 D on13 MOVL RO, COD ; 
10 Re 04 RE bo 0001 mov EO RF ng) gd 
18 Ab 08 AC DO 00020 MOVL NOD, 24(R6) : 0800 | 
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904.000 CLUSCOMM_SEND_ONE 1 at 1 93:98:98 OPCOM. SRCICLUSCOMM. B32 1 . 85 
30 0c AC dO 3 MOVL mSG_LEN, RO ; 0801 
C D1 CMPL = RO, “#12 ; | 
1 C BGEGU 2$ ; | 
50 ¢ D 90 : OVL #12, R0 ; 
20 Ab p 0031 2$: OVL RO, 32(R6) : 
34 A6 OF 00 4 PUSHAB ; (R6) + 0802 | 
0 Ab 9F 00038 PUSHAB 32(R6) : | 
00006 cf FB 000 CALLS #2, OPCSGET_VM : | 2 
7 D 004 MOVL RO, STATUS ; i 
28 04 BLBC_ _—« STATUS, : 
24 Bb 10 8C 0c AC 28 00046 MOVC3 MSG_LEN, @MSG_PTR, @36(R6) + 0805 
0000" OF 66 OE O40 INSQUE (R63, @ QH +4 ; 0809 | 
0000' CF Dé 0005 INCL  COD_REQOESTS > 0810) ( 
SE OD 00056 PUSHL SP > 0815 
FD70 CF 9F 0005 PUSHAB CLUS COMM DECLARE_KERNEL_AST ; 
000000006 00 92 FB 0005¢ CALLS #2, SYSSTMKRNL : 
57 50 00 9006 MOVL RO, STATUS ; 
18 57 €8 00066 BLBS STATUS, 5$ > 0820 
1c 57 D1 00069 CMPL STATUS. #28 ; 0823 | 
0A 13 0006C BEQL 4 ; 
57 DD 0006E 3S: PUSHL STATUS + 0825 
000000006 00 01 FB 00070 CALLS #1, LIBS$STOP : 
04 00077 RET ; 
0000" CF 9F 00078 4$: PUSHAB P.AAC + 0827 
00006 CF 01 FB 0007C CALLS #1, WRITE_LOG_FILE F 
50 57 DO 00081 S$: MOVL STATUS, RO : 0830 
04 00084 RET + 0831 


: Routine Size: 133 bytes, Routine Base: $CODE$ + O2AE 
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y04-000 CLUSCOMM_SEND_ONE 127868 382 93:85:98 OPCOM. SRCICLUSCOMM.B32;1 
: $08 08 ¢ } GLOBAL ROUTINE cluscomm_target_in_queuve (cod : $ref_bblock, queue : $ref_bblock) = 
: 651 o8 4 1 tee 
: 626 3 5 } Functional descripton: 
: 654 08 $ 1 i Check to see if the CSID field in the cod is in any of the CODs in the queue. 
; 655 0838 1! We assume that we are operating at AST level so that we do not have to worry 
: $28 BBzp ! } about interlocking the queue. 
: 658 0841 1 | Input: 
; 659 Oaeg 1! cod pointer to a cod 
: 4 oh : } queue ead of a queue of CODs 
: 66 0845 1 | Output: 
; 66 0868 1! None. 
> 664 0847 (1! 
; 665 0848 1 ! Routine Value: ; 
: 666 +4 : number of matches in the queue 
> 668 0851 1— 
: 434 b83¢ 2 BEGIN ! Start of cluscomm_TARGET_IN_QUEUE 
: 671 0854 2 LOCAL 
; 67 0855 count, 
; 67 0856 csid, 
: 674 0857 § head : $ref_bblock, 
; of? bees § cur : $ref_Bblock; 
: 677 0860 : 
: ors Bees Scan the queue, counting the number of times the target appears 
: 680 086 : count = 0; 
3 red 9¢: 2 ssid = .cod Ccod_l_csid]; 
3 ead = .queue; 
: 683 0866 5 cur = .head Ccod_l_flink]; j 
: one 44 2 Sale .cur NEQ .fead ! Loop until we see the end 
; 0869 BEGIN 
: ret paoe i gcete EQL .cur Ccod_l_csid] 
; 689 087 count = .count + 1; 
; oy OB cur = .cur Ccod_l_flink]; ! Get the next cod 
: 69 875 3 , 
: 69 876 RETURN .count; 
3 694 0877 1 END; ! End of cluscomm_TARGET_IN_QUEUE 


Page 495. 
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904.000 CLUSCOMM_SEND_ONE 13-38-1882 93:98:98 OPCOM. SRCICLUSCOMM.B32:1 . ass | \ 
99 13 09012 BEQL ©s38 : | 
10 ad D1 00014 CMPL CSID, 16(CUR) : 0870. 
Q 12 00018 BNEQ 2$ : 
D6 OOOIA INCL COUNT ; 087 
50 60 D 9 1C 2$ MOVL (CUR), CUR 3 087 
gg 1 1F BRB 1 : 0867 
50 dO 9041 3$ MOVL COUNT, RO : 0876 
04 00024 RET : 0877 


; Routine Size: 37 bytes, Routine Base: S$CODE$ + 0333 
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7O%~000 CLUSCOMM ial 14- Sep-1984 93:85:98 OPCOM. SRCICLUSCOMM.B32;1 9133, 


$36 pore 4 al ! End of CLUSCOMM 


PSECT SUMMARY 

Name Bytes Attributes 

SGLOBALS ¢ NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, st aaleee'od | rg b bh 1 
SCODES § 6 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 12 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


. ooescees Symbols ocoec--- Pages Processing 

File Total Loaded Percent Mapped Time 
.$255$DUA28: CSYSLIBILIB.L32;1 18619 12 0 1000 00:01.8 
~$255$DUA28 : COPCOM. OBJ JOPCOMLIB.L32;1 633 34 5 43 00:00.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CLUSCOMM/OBJ=OBJ$:CLUSCOMM MSRC$:CLUSCOMM/UPDATE=(ENH$: CLUSCOMM) 


; Size: 856 code + 376 data bytes 
; Run Time: 00:22.2 

; Elapsed a 01:18.8 

; Lines/CPU Min: 3 

; Lexemes/CPU-Min: 22248 

; peeet | Used: 161 pages 

; Compilation Complete 
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